home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / digitr1a / flashcar.frm < prev    next >
Text File  |  1999-07-14  |  14KB  |  480 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  3. Begin VB.Form Cards 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Vocabulary Flashcards"
  6.    ClientHeight    =   2730
  7.    ClientLeft      =   150
  8.    ClientTop       =   435
  9.    ClientWidth     =   6030
  10.    BeginProperty Font 
  11.       Name            =   "MS Sans Serif"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   700
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "Flashcard.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   2730
  24.    ScaleWidth      =   6030
  25.    StartUpPosition =   2  'CenterScreen
  26.    Begin MSComDlg.CommonDialog CDialog 
  27.       Left            =   0
  28.       Top             =   0
  29.       _ExtentX        =   847
  30.       _ExtentY        =   847
  31.       _Version        =   393216
  32.       Filter          =   "Vocab Files (*.jfv)|*.jfv|All Files|*.*|"
  33.       InitDir         =   "d:\"
  34.    End
  35.    Begin VB.TextBox txtDefinition 
  36.       BackColor       =   &H8000000B&
  37.       Height          =   765
  38.       Left            =   1200
  39.       Locked          =   -1  'True
  40.       MultiLine       =   -1  'True
  41.       ScrollBars      =   2  'Vertical
  42.       TabIndex        =   3
  43.       TabStop         =   0   'False
  44.       Top             =   975
  45.       Width           =   4815
  46.    End
  47.    Begin VB.TextBox txtWord 
  48.       BackColor       =   &H8000000B&
  49.       Height          =   765
  50.       Left            =   1200
  51.       Locked          =   -1  'True
  52.       MultiLine       =   -1  'True
  53.       ScrollBars      =   2  'Vertical
  54.       TabIndex        =   1
  55.       TabStop         =   0   'False
  56.       Top             =   75
  57.       Width           =   4815
  58.    End
  59.    Begin VB.PictureBox pctFrame 
  60.       BackColor       =   &H8000000B&
  61.       Height          =   450
  62.       Left            =   0
  63.       ScaleHeight     =   390
  64.       ScaleWidth      =   5955
  65.       TabIndex        =   5
  66.       Top             =   2025
  67.       Width           =   6015
  68.       Begin VB.CommandButton cmdNext 
  69.          Caption         =   ">"
  70.          Height          =   315
  71.          Left            =   4725
  72.          TabIndex        =   10
  73.          TabStop         =   0   'False
  74.          Top             =   40
  75.          Width           =   465
  76.       End
  77.       Begin VB.CommandButton cmdShow 
  78.          Caption         =   "Show Definition"
  79.          Default         =   -1  'True
  80.          Height          =   315
  81.          Left            =   1725
  82.          TabIndex        =   9
  83.          Top             =   40
  84.          Width           =   2490
  85.       End
  86.       Begin VB.CommandButton cmdBack 
  87.          Caption         =   "<"
  88.          Height          =   315
  89.          Left            =   750
  90.          TabIndex        =   8
  91.          TabStop         =   0   'False
  92.          Top             =   40
  93.          Width           =   465
  94.       End
  95.       Begin VB.CommandButton cmdLast 
  96.          Caption         =   ">>"
  97.          Height          =   315
  98.          Left            =   5400
  99.          TabIndex        =   7
  100.          TabStop         =   0   'False
  101.          Top             =   40
  102.          Width           =   465
  103.       End
  104.       Begin VB.CommandButton cmdFirst 
  105.          Caption         =   "<<"
  106.          Height          =   315
  107.          Left            =   75
  108.          TabIndex        =   6
  109.          TabStop         =   0   'False
  110.          Top             =   40
  111.          Width           =   465
  112.       End
  113.    End
  114.    Begin VB.Label lblCardPosition 
  115.       Alignment       =   2  'Center
  116.       BackStyle       =   0  'Transparent
  117.       Caption         =   "0 of 0"
  118.       Height          =   240
  119.       Left            =   75
  120.       TabIndex        =   4
  121.       Top             =   1800
  122.       Width           =   5865
  123.    End
  124.    Begin VB.Label lblDefinition 
  125.       AutoSize        =   -1  'True
  126.       BackStyle       =   0  'Transparent
  127.       Caption         =   "Definition:"
  128.       Height          =   195
  129.       Left            =   75
  130.       TabIndex        =   2
  131.       Top             =   975
  132.       Width           =   885
  133.    End
  134.    Begin VB.Label lblWord 
  135.       AutoSize        =   -1  'True
  136.       BackStyle       =   0  'Transparent
  137.       Caption         =   "Word:"
  138.       Height          =   195
  139.       Left            =   75
  140.       TabIndex        =   0
  141.       Top             =   75
  142.       Width           =   525
  143.    End
  144.    Begin VB.Label lblStatus 
  145.       Alignment       =   2  'Center
  146.       BorderStyle     =   1  'Fixed Single
  147.       BeginProperty Font 
  148.          Name            =   "MS Sans Serif"
  149.          Size            =   8.25
  150.          Charset         =   0
  151.          Weight          =   400
  152.          Underline       =   0   'False
  153.          Italic          =   0   'False
  154.          Strikethrough   =   0   'False
  155.       EndProperty
  156.       Height          =   255
  157.       Left            =   -15
  158.       TabIndex        =   11
  159.       Top             =   2475
  160.       Width           =   6045
  161.       WordWrap        =   -1  'True
  162.    End
  163.    Begin VB.Menu mnuFile 
  164.       Caption         =   "&File"
  165.       Begin VB.Menu mnuFileEditor 
  166.          Caption         =   "&Flashcard Editor"
  167.          Shortcut        =   {F5}
  168.       End
  169.       Begin VB.Menu mnuFileLoad 
  170.          Caption         =   "&Load"
  171.          WindowList      =   -1  'True
  172.          Begin VB.Menu mnuFileLoadFlash 
  173.             Caption         =   "&Load Flashcards..."
  174.             Shortcut        =   {F7}
  175.          End
  176.          Begin VB.Menu mnuFileLoadPause1 
  177.             Caption         =   "-"
  178.             Visible         =   0   'False
  179.          End
  180.          Begin VB.Menu mnuFileLoadRecord 
  181.             Caption         =   ""
  182.             Index           =   0
  183.             Visible         =   0   'False
  184.          End
  185.       End
  186.       Begin VB.Menu mnuFileClose 
  187.          Caption         =   "&Close Flashcards"
  188.          Shortcut        =   ^X
  189.       End
  190.       Begin VB.Menu mnuFilePause1 
  191.          Caption         =   "-"
  192.       End
  193.       Begin VB.Menu mnuFileExit 
  194.          Caption         =   "&Exit"
  195.          Shortcut        =   ^C
  196.       End
  197.    End
  198.    Begin VB.Menu mnuDisplay 
  199.       Caption         =   "&Display Options"
  200.       Begin VB.Menu mnuDisplayRevealed 
  201.          Caption         =   "&Revealed"
  202.          Begin VB.Menu mnuDisplayOpt 
  203.             Caption         =   "&Word"
  204.             Checked         =   -1  'True
  205.             Index           =   0
  206.             Shortcut        =   {F1}
  207.          End
  208.          Begin VB.Menu mnuDisplayOpt 
  209.             Caption         =   "&Definition"
  210.             Index           =   1
  211.             Shortcut        =   {F2}
  212.          End
  213.          Begin VB.Menu mnuDisplayOpt 
  214.             Caption         =   "&Both"
  215.             Index           =   2
  216.             Shortcut        =   {F3}
  217.          End
  218.       End
  219.       Begin VB.Menu mnuDisplaySort 
  220.          Caption         =   "&Sort"
  221.          Begin VB.Menu mnuDisplaySortEnt 
  222.             Caption         =   "&By Word"
  223.             Index           =   0
  224.             Shortcut        =   ^W
  225.          End
  226.          Begin VB.Menu mnuDisplaySortEnt 
  227.             Caption         =   "&By Definition"
  228.             Index           =   1
  229.             Shortcut        =   ^D
  230.          End
  231.       End
  232.    End
  233. End
  234. Attribute VB_Name = "Cards"
  235. Attribute VB_GlobalNameSpace = False
  236. Attribute VB_Creatable = False
  237. Attribute VB_PredeclaredId = True
  238. Attribute VB_Exposed = False
  239. Option Compare Text
  240. Option Explicit
  241.  
  242. Dim GiveDefinition As Boolean
  243. Dim HiddenBeingShown As Boolean
  244.  
  245. Sub AddMenuRecord(Record As String, Optional Opening As Boolean)
  246. Dim i As Integer, j As Integer
  247.     If Opening Then
  248.         PrepareFileEntry Record
  249.         If MenuRecords >= 1 Then
  250.             mnuFileLoadRecord(1).Caption = Record
  251.             SaveFileMenuChanges
  252.         Else
  253.             Opening = False
  254.         End If
  255.     End If
  256.     If Not Opening Then
  257.         If Me